/*
 * wire strength test
 * test cases taken from IEEE 1364 - 1995 std.
 *      (p. 69...)
 */
module cucu;

 wire  w1, w2, w3, w4, w5, w6;
 reg r1, r2;

 assign (strong1, strong0) w1 = r1;
 assign (pull1, pull0) w1 = r2;

 assign (weak1, weak0) w2 = r1;
 assign (weak1, weak0) w2 = r2;

 assign (pull1, highz0) w3 = r1;
 assign (weak0, highz1) w3 = r2;
 
initial begin
 $strobe("w1 : %v w2 : %v w3 : %v", w1, w2, w3);
 r1 = 1;
 r2 = 0;
#1;
end

endmodule
